screen _newimage(480,600, 0)
color 14
10 FOR I=0 TO 314 STEP 0.05
20 PRINT TAB(30+30*SIN(I*I)) + "X"
sleep 0.1
30 NEXT